COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ARRAY F1,F2,F3,F4(512)
C00004 ENDMK
C⊗;
ARRAY F1,F2,F3,F4(512);
VARIABLE /AA;
SRATE←25000;MAG←512/SRATE;SPEED←2;NCHNS←1;
COMPILE;
INSTRUMENT VLNC;
OSCIL[10](MAG,10*(MAG/P2),P11);
OSCIL(U1,P15*MAG,F1);AA←U2*P13;
INTRP(P6*P5*P16*MAG,P7*P5*P16*MAG,P12);
OSCIL(U3+P14*U3*(U2/MAG),P5*P16*MAG+P5*P16*AA,F1);
ZOSCIL(P3*P9,MAG/P2,P11);
ZOSCIL(U5,U4+P4*P16*MAG+P4*P16*AA,F1);
ZOSCIL(U5*((1.0-P9)/P9),U4*P10+(P16*MAG*P8)+(P16*P8*AA),F1);
OUTA←OUTA+(U6+U7);
END;
INSTRUMENT VLN;
ZOSCIL(P3*P9,MAG/P2,P11);
INTRP(P6*P5*MAG,P7*P5*MAG,P12);
OSCIL(U2,P5*MAG,F1);
ZOSCIL(U1,P4*MAG+U3,F1);
ZOSCIL(U1*((1-P9)/P9),P8*MAG+(P10*U3),F1);
OUTA←OUTA+U4+U5;
END;
FINISH;
SYNTH(F1);1 1 999